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COMPUTER USER GROUP NZ (inc) 


Rb TORZAL 


Just made it, another great issue with a wide range of 
contributions. 


On behalf of all our readers, may I thank all the 
contributors this month - 


F J Andrew Wellington 

Jane C Tauranga 

Peter Cheyne Kaikoura (two) 

Anne Flower Wellington Ctwo) 

John Gleave Christchurch 

Don McDonald Wellington 

Steven Webb Wellington 

Terry Webb Wellington 

Local User Groups Wellington 
Hawkes Bay 


Can I draw your attention, particularly newer members, to 
the offer being publicized in the President’s Report to 
supply back copies of Beeblet at the cost of post and 
packing. You couldn’t get a better offer than that. Not 
all issues are available, and those that are wiil go to 
the first applicants. 


And for those who missed the ads last month, they are back 
again. Prospective advertisers are to be encouraged for 
the benefit of both national and local users. As I have 
said before, we cannot make advertising rates much 
cheaper. Readers can be assured that advertisements do 
not displace contributions. 


Happy Computing. 


DISCLAIMER 


The views of reviewers, contributors and/or Editorial 
committee are not necessarily shared by 


THE BBC/ACORN COMPUTER USER GROUP NZ INC. 
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FROM YOUR PRESIDENT" 3S. DESK 


Nine months of the year gone already and this also means 
that this committee is half way through it’s current tern. 
I would like to take the opportunity to pass on to you what 
your committee has been doing for the last six ronths. 


1. We have almost completely changed our adainistrative 
procedures and now use only commercial software to Keep 
track of members’ names, addresses, etc., and our finances. 
This was done to get away from the problem of trying to get 
to grips with an undocumented home made system each time 
the committee changed. 


For your information we now use Intersheet for the finances 
and Viewstore as our a,embers database. However, this 
should not be taken as a recommendation of these products. 


2. The Beeblet magazine has been boosted to ensure it 
caters for members needs. We still suffer from a lack of 
contributions at times but we have still managed to put out 
a monthly issue. The release date has been changed to 
cater for Local User Groups who wish to advertise. their 
meetings. Unfortunately, during August, cur printer had a 
hicyup and we also had database problems sorting out a few 
people who had paid twice. Even with the best will in the 
world we sometimes slip up. 


Advertising is accepted free of charge (although a donation 
is welcomed) to publicize products available within Hew 
Zealand. 


3. The cost of joining the National User Group has beer 
reduced from #30.00 to only $20.00. This, despite the 
increases in costs for producing and posting Beeblet to 
you. We reduced costs to answer criticism that 630.00 was 
too much to pay for an monthly magazine delivered to your 
door. 


4. In the final analysis, the value of Beeblet lies secre 
in its content than its cost. And for that we are retiarct 
on contributions. [ would like to personally thank thoes 
who have contributed to Beeblet; readers have benefitted 
from a wide range of topics in the last few months. 


Several Local User Groups have been visited by committee 
members in an effort to generate interest in Beeblet and 
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the National User Group. Offers have been made, and are 
still open, to publish information from special interest 
groups. While in Auckland, I was asked if Beeblet could 
include information from teachers relating tao using the BBC 
in education. I answered yes, and the answer is still yes, 
but where is the information? 


Any special interest group is welcome to use Beeblet as 
long as their activities include using the BBC computer. 


5. Back tissues of Beeblet are available free of charge to 
all members. If they have to be posted then a charge = for 
the postage will have to be made. Over the years we have 
built up large stocks of Beeblet which the committee feel 
would be better being used by you than sitting in storage 
somewhere. 


As you can see your National User Group committee has been 
working hard to improve the services offered by the 
National User Group. We have had some very good responses 
from Local User Groups who have thrown in their lot with 
the National Group. For a while now we have been concerned 
that Local User Groups go to all the effort and expense of 
producing a newsletter or magazine when the National Group 
will do so for no charge to the Local Group. This will 
release Local Group funds for a better use. 


The points raised in my last report are still valid and I 
would like to re-emphasize the following:- 


Unless BBC computer owners show a united front it will not 
be possible to convince dealers to import software or other 
products necessary to advance the use of or improve the 
facilities for the computer. Dealers need to have some 
idea as to the size of the market before they import 
products. Neither will it be possible to convince persons 
intending purchase of a BBC computer that this purchase is 
a good idea. User Group support is very important to first 
time buyers of computers. What is required is for all 
owners to get behind the National Group. Further rore you 
should challenge us to provide your needs. 


Yours for better computing, 


Neville Hudson 
President of the National User Group. 
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LROSS HATCH GENERATOR 


By John Andrew, Wellington 


The short program below will generate a cross hatch 
pattern on your screen. This pattern is used by Television 
Technicians when checking for convergence of the primary 
colours (Cred, green and blue). The same pattern can be 
used to check for linearity, purity and ghosting. I have 
used it to try and improve the performance of an old 26 
inch Murphy colour set. An onslaught was made on the 
dying TV, with direct connections to output circuitry and 
tweaking of the convergence. I can now vaguely read 80 
column text. The conversion process is not recommended 
but the program may be of use in determining the 
usefulness of old colour TVs for monitor service. 


10 REM Program to generate cross hatch on a colour 
screen to check colour convergence. 

20 REM SAVE °C.HATCH” 

30 REM F.J. Andrew 6 June 1987 

40 MODEO 

50 PRINT“COLOUR NUMBERS ARE"’’ 

60 PRINT*’1 = RED"’"2 = GREEN"’"3 = GREEN and RED”’ 


“4 = BLUE" 
70 PRINT"S = RED and BLUE"’"6 = BLUE and GREEN”’ 
"7 = WHITE" 


80 REPEAT : REM Allow user to change colours easily 
90 REPEAT: C=GET: UNTIL C>&30 AND C¢C&38 : REM Only allow 
numbers 1-7 CASCII &31 to &37) 
100 VDU19,1,C-&30,0,0,0 :REM Change Logical colour 
110 FOR I%=0 TO 1279 STEP 32 : REM step 32 pixels at a 
time 
120 PLOT 4,1%,0 : REM Position cursor 
130 DRAW I% ,1023 :REM Draw verticals 
140 NEXT 1% 
150 PLOT4,1279,0: DRAW 1279,1023 : REM Add right 
boundary 
160 FOR I[%=0 TO 1023 STEP 32 
170 PLOT 4,0,I1% : REM Position cursor 
180 DRAW 1279,I1% : REM Draw horizontals 
190 NEXT I[* 
200 PLOT4,0,1023:DRAW 1279,1023 : REM Add top boundary 
210 UNTIL TRUE = FALSE : REM Impossible, soa go back to 
REPEAT at line 80 
220 END : REM Ploy to avoid GOTO !! 


Og Pt PP Re fan ng tg tng tng tng thy Saf thy Org tog tag tap Pet tag ep Bap Hep PG Hed Hep ey Pep Hy ep the Hy thy tee thy Ry Be thy Pb De et Hp thy Rep ty AG Pt ted Pid Pap Bef thd Pap the Hey Hey tes the ny 
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You too can win at LOTTO with a..... 
LOTTO NUMBER GENERATOR 


by Terry Webb, Wellington. 


The inspiration for this program came after a visit to the 
Wellington Computer Show recently. At the show I saw a 
small device about the size of a pocket calculator, 
complete with LCD display, which generated six random 
mumbers. Rather than invest in this expensive item I 
thought I would exploit the power of the Beeb. 


I have tried to structure the program so that it is 
self-explanatory. The interesting feature is a check 
Clines 330 to 350) to ensure that the number has not 
already been generated. Cotto does not allow repeating 
nurabers on the same board. 


If you own an Electron change the Mode to 6, remove the 
FOR NEXT in PROCheading, and remove all Teletext control 
codes (CHR8$129-159). 


A percentage of any winnings resulting from use of this 
program will be gratefully accepted by the author. 


10 REM --WIN AT LOTTO-- 
20 REM by Terry W 
30: 
40 MODE7 
50 DIMX(¢(6) 
60 PROCheading 
70 VDU28,0,24,39,3 
80 @%=&00004 
$0 PROCboards 
100 PROCgenerate 
110 GOTO 70 


130 DEFPROCheading 
140 FOR heading%=1 TO 2 
150 PRINTCHRS131;CHRS157;CHRS141;CHR$129;TABC11); 
“LOTTO NUMBER SELECTOR” 
160 NEXT 
170 ENDPROC 
iaexa LOTTO >>? 


6 Beeblet Sept 87 


180 : 


200 
210 
220 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


410 
420 


430 


440 : 


450 
460 
470 
480 
490 
500 
510 
520 
530 
940 
550 
560 
570 
580 
530 
600 


*« © & @ & 


LOTTO >>> 


* 


DEFPROChoards 

CLS 

REPEAT 

PRINTTAB( 2,0) CHRS134 

“Enter number of boards (4-10) 
INPUTTABC(33,0) boards 

UNTIL boards%>=4 AND boards%<=10 
ENDPROC 


DEFPROCgenerate 

FOR loapsx=! TO boards 

A=1 

REPEAT 

T=RND(39)+1 

checK%=! 

IF X€check%)=T THEN 310 

check *=check%+! 

IF check%¢6 THEN 330 

XCA)= 

A=A+1 

UNTIL A>d6 

PROCsort 

PROCdisplay 

NEXT loop’ 

PRINT’ CHRS$130; 

"X to end, or any other Key to rerun “";:G8=GETS 
IF G$="X"* OR GS="x" THEN VDU26:CLS:END ELSE ENDPROC 


DEFPROCsort 

FOR J=0 TO 5 

FOR K=J+1 TO 6 

IF XC J3<XCK} THEN 500 
R=XCJ):KC J =XCK) : XCKI=ER 
NEXT K 

NEXT J 

uae 


DEFPROCdisplay 

PRINT’CHR$134 "Board °;CHR&S(64+loop%) ;CHRS135; me 
FOR P=1 TO 6 

PRINT, XCP); 

NEXT P 

PRINT 

ENDPROC 


Py ee ae er eS SS 2 2 SS 2 Sr Se Sr 2 2 i 2 Sr 2 2 a Se ry 
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P= Ow OP. Oe te 
by Peter Cheyne, Kaikoura 


BIGTEXT is a PROCedure that can be used to produced text 
of any size on the screen using the standard font. It can 
be used with any of the graphics screen modes. 


The PARAMETERS to be passed to the PROC are: 
WS - the string to be printed. 


X%& - the x coordinate of the “origin” of the text. 
(Normally this is the lower left hand corner of 
the text, but if the text is printed backwards 
or upside down it may be the top or right hand 
corner. ) | 


Y% - the y coordinate of the "origin" of the text. 
(See note above). 


DX* - the horizontal size of each character pixel. 
Negative values produce backwards (mirror 
image) writing. 


DY% ~- the vertical size of each character pixel. 
Negative values produce up~side-down text. 


The PROC uses a little routine that I don’t understand 
Cline 210 and part of 240) to determine the make-up of the 
character to be printed and then simply draws a rectangle 
with the dimensions DX% x DY% for each character element. 


It is important to be careful positioning the text on the 
screen as the screen resolution can change the appearance 
of the character. 


I am sure this must be easily converted into machine code 
which would make it much quicker. (Just think how much 
information could be crammed onto a _ screen using the 
"“Microprint” option!) 
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210 


220 
230 
240 


250 
260 


REM GIANT PRINT by PJC 


MODEO 

PROCbigtext( "BIG", 250,700, 30,30) 
PROCbigtext( "TEXT", 100, 400, 30, 30) 
PROCbigtexrt("Reflections”,100,300, 4, 4) 
PROCbigtext("Reflections®,100,303,4,-4) 
PROCbigtext( “BACKWARDS”, 1200, 250,-8,8) 
PROCbigtext( "UPSIDE DOWN & BACKWARDS”, 1200, 203,~-6,-4) 
PROCbigtext(°Hello”,0,80, 30,6) 
PROCbigtext("MINIPRINT”,480,28,2,2) 
PROCbigtext¢( °MICROPRINT”,500,12,1,1) 
END 


DEF PROCbigtext(WsS,X%, Y%,DX%, DY) 

LOCAL H%,NX%,NY%,J3%,L%,1% 

FOR H%=1 TO LEN WS 

NX%=X%¥+8xCHS-1)xDX%: NYS=Y% 

FOR J%=7 TO 0 STEP -1! 

NXS=NX%+4+DX%: NY*X=Y% 

IF ASC MID®*(WS,H%,199223 LS=&CO0+8xCASC 
MID#(WS8,H%,1)-224) ELSE LY=&BFOO+8xASC MIDS CWS ,H%, 1) 
FOR I%=7 TO O STEP -t! 

NYS *=NYX+DY% 

IF (LA?ISAND2*J%) MOVE NXS,NY%: MOVE 
NX%+DX%-SGNCDX%),NY%: PLOT 85,NX%,NY%+DY%-SGNC(DYS%): 
PLOT 85,NX%+DX*%-SGN(DX%) ,NYS+DY%-SGNCDY%) 

NEXT: NEXT: NEXT 

ENDPROC 


ay Be Re ty te Oe Op tg tp Oy tet ihe ty Oe tg My thy tap the ty ag Ga Me Tp) thy MD Mh Ty NG Bb Tey tp Gy ty ty Og ty OS te eg Gy fe De fe ty ge Me Oe tp he te gg On On te ts Oe 


For Sale: 


VIEWSPELL, Version 1.0: ROM + 80 track disc $50 

VIEWPLOT, 40/80 track disc, DFS 945 

VIEW 3.0, ROM #50 

VIEW INDEX for BBC, 40/80 track 820 
All complcte with manuals. 

VIEWSHEET manual only #15 

Telephone John (O03) 321-278 evenings. 


Oe te Ret be ee Oe ae Oy ie Oe ng ng ge Og ip ay me By Oy ie ie ty tg tg ie He Rp iy ty Oy ty tp He RE Hy Re yg ME Re me ap hg Oy mE he ag he Ey Ee he ig Oy OP Oe eh te te 
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SAVING MASTER RED KEYS 


Dear Gavin Flower, 


I don’t like this new Master ~ I can’t use my *LOAD 
KEYS anymore. The blasting computer doesn’t have its 
RAM where it ought to. Please write me a simple 
little program to have the same effect as the x*SAVE 
KEYS BOO +100 that I’m used to. I can’t get Wordwise 
definitions right using your xBUILD method for Key 
Gefinitions. 


Love, Anne. 


This reduced Gavin to machine code for the first time on 
an Acorn machine! 


HOW TO USE IT; 

Type in the listings below, and Save each under some 
innocuous name that you will recognise before you go any 
further. Then RUN. The listing KLOAD automatically saves 
the object code produced onto disc, so have one ready. So 
does KSAVE. 


From now on to save a set of Key definitions, type in 
"*XKSAVE file" and the computer will hunt through its ROMS 
then a disc for this command. LOADing a previously-saved 
set of definition is similar: 

*KLOAD WOKEYS Cor whatever relevant filename). 


The programs here are fully REMmed for those who want to 
understand how it shifts data in and out of different 
parts of memory. They have been fully tested using DFS. 
(Not ADFS!)> 


10 REM 8B.KSAVE 
ZO REM Program to compile “KSAVE filename” 
30 REM Saves MASTER softKey definitions to named file 


40 REM ~ reloaded by “KLOAD filename” 

50 DIM code_area 511 

60 tuwa = &DDOO >:REM Transient Utility Work Area 

70 buffer = Ctuwa AND&FFOO) +&100 :REM temporary 
buffer 

80 romsel = &FE30 :REM ROM select register 

90 romsel_copy = &F4 :REM os copy of romsel 

100 mos_ram = &8000 :REM where soft Keys are stored 


110 osfind = &FFCE 
B.KSAVE Contd. >>> 
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B.KSAVE Contd. >>) 


120 osgbpb = &FFDI 


130 from = &DA :REM "ZTEMPA® ~- MASTER ref. page 
E.4-4 
140 to = &DC :REM “ZTEMPB" 


{50 xREMOVE KSAVE 

160 xREMOVE KEYS 

170 PROC_asseable 

180 *xKSAVE KEYS 

190 VDU14 

200 xDUMP KEYS 

210 VDUI5 

220 END 

230 

240 DEF PROC_assearble 
250 LOCAL I 

Z60 FOR I = 4 TO 7 STEP 3 


270 Ox = code_area 

280 P%& = tuwa 

290 ( 

300 OPT I 

310 \ 

320 \ set X,Y to point to file name 
330 \ 

340 TYA 

350 CLC 

360 ADC &F2 

370 TAX 

380 “CDY &F3 

390 \ 

400 \ open file for output 

410 \ 

420 LDA #&80 

430 JSR osfind 

440 ' STA block 

450 CMP #0 

460 BNE set_pointers 
470 BRK 

480 EQUB &FF 

430 EQUS “open failure’ 
500 EQUB 0 

§10 \ 

520 \ set froa/to pointers 

§30 \ 

540 .set_pointers 

$50 LDA #mos_ram MOD256 
560 STA from 


B.KSAVE Contd. >> 
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_ B.KSAVE Conta. >>> 


570 LDA #mos_ram DIV 256 
§80 STA fromtt 

590 LDA #buffer MOD 256 
600 STA to 

610 LDA #buffer DIV 256 
620 STA totl 

630 \ 

640 \ Page in softKey area 

650 \ 

660 -get_block 

670 LDA romsel_copy 

675 \ MASTER ref. page E.4-9 

680 PHA 

690 ORA #&80 

700 STA romsel_copy 

710 STA romsel 

720 \ 


730 \ move block from MOS RAM to buffer 
740 \ 


750 LDY #0 

760 next byte 

770 LDA (from),Y 
780 STA (tod,Y 
790 DEY 

800 BNE next_byte 
810 \ 

820 \ restore ROMSEL 

830 \ 

840 PLA 

850 STA romsel copy 
860 STA romsel 
870 \ 


te \ reset data address & number of bytes in “block’ 
\ 


900 LDA #buffer ANDSFF 
910 STA block+l 

920 LDA #buffer DIV256 
930 STA block+2 

940 LDA #1 

950 STA block+6 

960 \ 

970 \ write buffer 

980 \ 

390 LDA #02 

1000 LDX #block AND&FF 


B.KSAVE Contd. >»? 
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B.KSAVE Contd. »)>) 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
L100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 


1420 


- 


LDY #block DIV256 
JSR osgbpb 
\ 
\ check for sucessful [/0 
\ 
BCC ok 
BRK 
EFQUB &FF 
EQUS "I/O write failure” 
EQUB O 


\ increment ’from’ page pointer 


.oK 
INC from+}i 


\ exit if finished - need to write 4x256 bytes 


DEC count 
BNE get_block 


\ close file 


LDA #0 
LDY block 
JSR osfind 


\ return 
RTS 


channel 

data address 
mumber of bytes 
file pointer 


- block EQUB O 
EQUD buffer 
EQUD 256 
EQUD O 


a a nn ail 


\ 
count EQUB 4 
\ 
} 
NEXT 
OSCLIC"SAVE KSAVE “+STR8~code_area +” “+ STRS*°O% +° 
"+ STRE*tuwa +” “+ STRS*tuwa) 
ENDPROC 


.e.. End of B.KSAVE .... 
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[Oo 
ZO 
30 
40 
30 
60 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
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REM 6B.KLOAD 

REM Prograa to compile “KLOAD filename” 

REM (Loads in softkey definitions saved by KSAVE) 
DIM code_area $11 

tuwa = &DDOO -REM Transient Utility Work Area 
buffer = Ctuwa AND&FFOO) t&!100 :REM temporary 
buffer 


rogsel = &FE30 ‘REM ROM select register 

romsel copy = &F4 :REM os copy of roanasel 

mos _ ram = &8000 :REM where soft Keys are stored 
osfind = &FFCE 


osgbpb = &FFD1 
to = &DA 

from = &DC 
xREMOVE KLOAD 
PROC_assemble 
*KLOAD KEYS 
END 


DEF PROC_asseabile 
LOCAL | 
FOR 1 = 4 TO 7 STEP 3 
O% = code _area 
P& = tuwa 
( 
OPT I 
\ 
\ set X,Y to point to file name 
\ 
TYA 
CLC 
ADC &F2 
TAX 
LDY &F3 
\ 
\ open file for input 
\ 
LDA #&&40 
JSR oasfind 
STA block 
CMP #O 
BNE set_pointers 
BRK 
EQUB &FF 
EQUS “open failure” 
EQUB O 


B.KLOAD Contd. »>> 
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B.KLOAD Contd. 59>) 


470 
480 
490 
500 
510 
520 
530 
940 
550 
560 
570 
580 
530 
6900 
610 
620 
630 
640 
650 
660 
670 
680 
6390 
700 
710 
720 
730 
740 
750 
760 
770 
780 
730 
BOO 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


\ set to/from pointers 
\ 
~-set_pointers 
LDA #mos_ram MOD256 
STA to 
LDA #mos_ram DIV 256 
STA to+l 
LDA #buffer MOD 256 
STA from 
LDA #buffer DIV 256 
STA froatl 
\ 
\ read buffer 
\ 
-hnext_bloack 
LDA #04 
LDX #block AND&FF 
“LDY #block DIV256 
JSR osgbpb 
\ 
\ check for sucessful I/0 
\ 
BCC ok 
BRK 
EQUB &FF 
EQUS “I/O read failure" 
EQUB 0 
\ 
\ Page in softkey area 
\ 
ok LOA romsel copy 
PHA 
ORA #&80 
STA romsel_copy 
STA romsel 
\ 
\ move block to MOS RAM from buffer 
\ 
LDY #0 
snext_byte 
LDA Cfrom),Y 
STA ¢(to),Y 
DEY 
BNE next_byte 
\ 
\ restore ROMSEL 
B.KLOAD Contd. >)? 
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B.KLOAD Contd. >>> 


930 \ 

940 PLA 

950 STA romsel_copy 

960 STA roasel 

970 \ 

980 \ increment to pointer 

990 \ 

1000 INC to+} 

1010 \ 

1020 \ reset data address & number of bytes in “block” 
1030 \ 

1040 LDA #buffer AND&FF 

{050 STA blockt! 

1060 LDA abuffer DIV256 

1070 STA block+2 

1080 LDA #1 

10930 STA black+6é 

1100 \ 

1110 \ exit if finished - need to read 4*256 bytes 
L120 \ 

1130 DEC count 

1140 BNE next_block 

1150 \ 

1160 \ close file 

1170 \ 

1180 LDA #0 

1190 LDY block 

1200 JSR asfind 

1210 \ 

1220 \ return 

1230 \ 

{240 RTS 

{250 \ 

1260 -block EQUB O \ channel 
1270 EQUD buffer \ data address 
1280 EQUD 256 \ number of bytes 
1290 EQUD O \ file pointer 
1300 \ 

{310 .count EQUB 4 

1320 \ 

1330 ) 

1340 NEXT 


1350 OSCLI("SAVE KLOAD "+STR&“code_area +" “+ 
STRS~O% +" "+ STRS$~tuwat” “+ STRS~tuwa) 
1360 ENDPROC 


PE AO tan ag ng Pp RE RG EG AY Pp Map tae hp Od hg ng AG RE tg ag RE tg PD ag Pu tag Bet a Beg ed tag tag tag thd ted tng te thy tay tg the ad tng tng It Oat tag thd ep tad tag ths Pa yg ty ay 
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This 


IM ST wd fai 


by Jane C., Tauranga 


program demonstrates enlarged lettering in the 


various modes. The program is largely (to coin a phrase) 
self explanatory, so without further ado..... 


80 


100 
110 
120 
130 


140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
200 
260 
270 
280 
290 
300 
310 
320 
330 
340 


REM DOUB/HT DEM CH. "“BIGPROG” 
MODE7 
mo%=7 
PROCbig7(5,1,CHR8130, "DOUBLE HEIGHT DEMONSTRATION® ) 
PROCbig7(0,5,CHR$134,"°This is MODE 7 using PROCbig7") 
PROCbig7(0,8,CHR$131,°I will follow it with questions 
which”) 
PROCbDig7(0,10,CHR8131,"°you will answer using 
PROCbiginput”) 
PROCbig7(0,13,CHR$130,"What is your name”) 
cols=CHR$135 
PROCbiginputci9,13) 
NS=I$ 
PROCbig7(0, 16,CHR8133,"°Hello “+N8) 
PROCbig7(1,22,CHR$135,"PRESS ANY KEY FOR THE OTHER 
MODES") 
G8 =GETS$ 
MODE1 
mo%=Q 
COLOURI 
PROCbig(0,6,"The other modes use PROCbig but the”) 
PROCbig(0,8,°same PROCbiginput”) 
COLOUR2 
PROCbig(0,12,°OQf course they do not all have the”) 
PROCbig(0,14,”* full range of colours”) 
COLOUR3 
PROCbig(0O,18,"This is Modes 1! or 4°) 
COLOUR! 
PROCbig(0,22,"Enter your name”) 
COLOUR2 
PROCbiginput¢17,22) 
COLOUR3 
PROCbig(12,28, "PRESS ANY KEY") 
G8 =GETS 
MODE2 
mo%=Q 
COLOUR I 
BIGPROG >>> 
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BIGPROG >>> 


PROCbig(0,8, “This”) 

COLOUR2 

PROCbig(5,8,"is") 

COLOURS 

PROCbig(0,11,°Modes”) 

COLOUR4 

PROCbig(6,11,°2") 

COLOURS 

PROCbDig(8,11,"°or") 

COLOURE6 

PROCbig(11,11,°5") 

COLOURI3 

PROCbig(0,15,"Enter your name”) 
COLOUR? 

PROCbiginput(c0, 18> 

COLOUR} 

PROCbig(3,25, "PRESS ANY KEY") 
G$=GET$ 

MODE6 

mo%k=0 

PROCbig(0,8, "This is Mode 6 & probably not much use”) 
PROCbig(0,13,"Enter your name”) 
PROCbiginput¢17,13) 
PROCbig(0,18,"Doa you want to see the program again?”) 
G8S=GETS 

IF G8="Y°ORGS="y" GOTO 20 

CLS 

END 


DEFPROCbig7(X%, Y%,C$,M$) 
FORL%=Y%TOY%+1: PRINTTABCX%,L%)CHRS141;C$;M8:NEXT 
ENDPROC 


DEFPROCbig(H%,V%,M$) 
LOCAL N 
A%=&A:X%=0: YS=&A 
D=&A00 
FOR N=1 TO LENCMS) 
BS=MIDS$(MS,N, 1} 
?D=ASCCBS > 
CALL C&FFF1) 
VDU23,240,D?1,D?1,D22,D?2,D23,D?3,D?4,D?4 
VDU23,241,025,D025,076,D?76,D?77,D77,07?8,D?78 
PRINTTABCHS+N, V%)CHRS 240; TABCHS+N, V¥4+1>CHRS241 
NEXT 
ENDPROC 

....BIGPROG >>> 
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---- BIGPROG >>> 


810 

820 DEFPROCbiginput(XX%, YY%) 

830 IF mo%=7 WX=XX%+2 ELSE WS=XX%+! 

840 I¢="*" 

850 REPEAT 

860 VDU31,W%, YY% 

870 G&=GET 

880 IF I$%=""ANDG%=13 GOTO 870 

890 IF G%=127 AND I8<>"* I6=LEFT6C(I8,lenk-1):PROCerase: 
WE=WK~1:VDU31,W%,YY%:GOTO920 ELSE IF G%&=127 GOTO870 

900 GS8=CHRS(G%) 

910 IF G&¢O13 I#=18+Gs8 

920 IF G%¢013 AND mo%=0 PROCbDig(XX%,YY%,I8) 

930 IF G8<>13 AND moX%=7 PROCbDig7(XX%&,YY%,col#,I8) 

940 lens=LENCI8) 

950 IF GRCd127 We=WK+ I 

960 UNTILG%=13 

970 ENDPROC 

980 

990 DEFPROCerase 

1000 IF mo%=0 PROCbDIig(XX%,YYS,STRINGSClenk,” °)) 

1010 IF mos=7 PROCbIig7(XX%,YY%,CHR8128,STRINGSClen’,* “)) 

$020 ENDPROC 
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An interesting one liner...... 


PATIERN 


by Peter Cheyne, Kaikoura. 


PATTERN is a totally trivial programme that creates sone 
quite startling patterns simply by drawing a square 
(perhaps modified in some way) and then rotates it. The 
original square may be modified by removing or changing 
the direction on any of the sides. 


Two questions for the more mathematically minded: How 
many different patterns are possible? And, how long could 
one spend gazing at the screen? 


10 MODEO:X1=0:Y1=0:X2=0:¥2=1023: REPEAT: MOVEX!,Y1: 
DRAWX2,Y2:DRAW1023~-XK1,1023-Y1:DRAW1023-X2,1023-Y2: 
DRAWX1,Y1:D1=¢X2-K1)/60:D2=CY2-Y1)/60:X1=X1+D1: 
YL=Y1+02:X2=X2+D2:Y2=Y2-D1 UNTIL OX2-X1)*24+CY2-Y190%2¢1 
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aZtOM Pixel FEaitor 
by Steven Webb, Wellington. 


This program allows you to “touch-up” a graphics screen 
pixel-by-pixel so as to enhance/modify selected small 
areas. It is a useful addition for those of you who use a 
graphics design program such as Colour Icon CASB 
Computing) or Freehand (Acorn User). The program is 
rather long, but I hope this doesn’t deter anyone, as it 
is extremely useful. 


Basically, the program allows the user to select a small 
area of a screen (previously %*SAVEed) to “enlarge” and 
edit, after which it is reduced back to normal size and 
restored into the main picture. 


The machine code at the end is a short routine for copying 
the top half of the screen to sideways RAM. This also 
restores the picture after editing. The program will not 
run unless sideways RAM is installed. 


In its present state it is for use with the Solidisk 2MEG 
128K expansion board, which they say iS compatable with 
the Master 128. If you own a Solidisk old-style sideways 
RAM board, the following changes will enable it to work: 
delete lines 1970,1980,2190,2270,2480, and replace lines 
2230-2260 with: 


2230 LDA #15 

2240 STA &FE62 
2250 LDA #bank 
2260 STA &FE60O 


It is designed to work with BASIC 1. The Keys to use are 
displayed upon running the program. When the screen is 
saved, it is always given the filename P.PICTURE, so it 
must be renamed afterwards to prevent overwriting next 
time. 


10 REM xxx ZOOM Pixel Editor *xx 
20 REM 

30 REM by Steven Webb 

40 : 

50 MODE7 


..-.s ZOOM Pixel Editor >>> 
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420 


ZOOM Pixel Editor >>> 


VDU23;8202;0;0;0; 

DIM lLogcol%(7),o0sck% 30 
PROCstart 

MODE mode 
VDU23;8202;0;0;0; 
FORA%=OTOmode 

READ himem,pixels,ppb,step 
NEXT A% 

PROCassemble 

DATA &30,640,2,&F8 
DATA &30,320,4,&F8 
DATA &30,1!60,8,&F8 
DATA 0,0,0,0 

DATA &58,320,4,&80 


DATA &58,160,8,&80 

IF yn8="Y¥" OR yn$s="" THEN PROCoscli(¢”LOAD 
"“+filenames+" "“+STRS&~*himem+"00" ) 
KEX4, 1 

xOPT1,0 

XS=0:Y%=0 

PROCbax 

REPEAT 

IF INKEY-58 AND Y%<¢944 THEN PROCbox: 
Y*%=Y¥%+Cppbx2/CINKEY~-1+2)):PROCbox 

IF INKEY-42 AND Y%>)Q THEN 


PROCbDox: Y%=Y%-Cppbx2/CINKEY-14+2)): 

PROCbox 

IF INKEY-26 AND X%50 THEN PROCbox: 

X%=K%-Cppbx2/ CINKEY-1+2)):PROCbox 

IF INKEY-122 AND X%&¢€C1280-€20xppb)) THEN PROCbox: 
X%=KX%+Cppbx2/CINKEY-1+23):PROCbox 

inp*=INKEYCO) 

IF inp%>47 AND inp%*<56 THEN PROClogcol (inp%-48) 
IF INKEY-74 THEN PROCzoom 

IF INKEY-82 THEN PROCbox: 

PROCosclicC"SAVE P. PICTURE “+STRS*himem+°O00 7FFF"): 
PROCbox 

UNTIL FALSE 


DEFPROCbox 

GCOL3,7 

MOVEX%,Y% 

DRAWKX%S+¢ 20xppb)-ppb, Y% 
DRAWX%+(20xppb)-ppb, Y%+8O-ppb 
DRAWX%, Y%+8O-ppb 


.. ZOOM Pixel Editor >>>) 
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DRAWX%, Y% 
ENOPROC 


DEFPROC]ogcol(col%) 
A*k=lLogcolks(col%) 

AX=A%N+1:IF AX%=8 THEN A%X=0 
logcol%(col%)=A% 
VDUI9,col%,logcol%(col%),0,0,0 
FOR A%=0 TO 350:NEXT 

ENDPROC 


DEFPROCzoom 

PROCbox 

FORV%&=19TOOSTEP-i1 

FORHS=O0TOI9 
2?€(&900+(VE%20)34+HED=POINTCXX4tCHSxppb) , Yt OV %x4) dD 
NEXT H% 

NEXT V% 

CALL copy 

GCOLO,0 

MOVEO, 1023 
MOVE480,1023:PLOT85, 480,543 
MOVEO, 1023 

PLOT85,0,543 

GCOLO,7 

FORV%=0T020 

MOVE V%*24,1023:DRAW V%«24,544 
NEXT 

FORH%=O0TO20 

MOVE 0,1023-€H%S*x24):DRAW 480, 1023-CH%X*24) 
NEXT 

FORV%=OTO1!19 

FORH%=OTO19 

Col %=?€&900+¢€C19-V%) *20)+H%) 
IF col%=0 THEN GOTO840 
GCOLO,col% 

MOVEHS*24+ppb, 1023-(V%x24)-4 


MOVECHS+1)%*24-ppb, 1023-(V%&x24)-4 
PLOTBS, (HS+lL I a24-ppb, LOZ3-COVAF1 A244) +4 
MOVEHS*24+ppb, 1023-(CV%4*24)-4 
PLOT85,H%x24tppb, 1023-CCVEt1) x24) +4 
NEXT: NEXT 
x%=O: yh=0 
PROCbox2 
REPEAT 
--. ZOOM Pixel Editor >>>) 
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IF INKEY-58 AND y%>0O THEN PROCbox2: y%=y%-1:PROCbox2 
IF INKEY-42 AND y%<19 THEN PROCbox2:y%=y%*+i: 
PROCbox2 

IF INKEY-26 AND x%>O THEN PROCboxs2:x%=x%-1:PROCbox2 
IF INKEY~-122 AND x%<19 THEN PROCbox2: x%=x%+1;: 
PROCbox2 

IF INKEY-40 THEN PROCcolour(0) 

IF INKEY-49 THEN PROCcolour(1) 

IF INKEY-S0 THEN PROCcolour(2) 

IF INKEY-18 THEN PROCcolour(3) 

IF INKEY-19 THEN PROCcolour( 4) 

IF INKEY-20 THEN PROCcolour (5) 

IF INKEY-53 THEN PROCcolour(6) 

IF INKEY-37 THEN PROCcolour(7) 

UNTIL INKEY-74 

CALL uncopy 

FORV%X=19TOOSTEP- | 

FORH%=O0TO19 

GCOLO, ?€&900+CV%*X20) +H%) 

PLOT69,X%+CH%xppbh), Y%s+CV%¥x4) 

NEXT HX 

NEXT V% 

PROCbox 

kKFX15 

ENDPROC 


DEFPROCbox2 

GCOL3,3 
MOVEx%*24,1023-y%x24 
DRAWx%*24+24, 1023-y%x*24 
DRAWx%*24+24, 1023-y%x24-24 
DRAWx%*x24, 1023~-y%x24-24 
DRAWx%*24,1023-y%x24 
ENDPROC 


DEFPROCcolour(cols) 
2C&900+0CC19-y%)*20)+K% I =cols 

GCOLO,col% 

MOVEXsx24+ppb, 1023-Cy%*x24)-4 
MOVE(x%+1)x*24-ppb, 1023-Cy%x24)-4 
PLOT85, (x%S+1)*24-ppb, 1023-CCy%+tld*24)9+4 
MOVEx%x24+ppb, 1023-Cy%x24)-4 

PLOT85, x%x24+ppb, 1023-(Cy%+1)*24) +4 
ENDPROC 
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DEFPROCosclits8osc%) 
o1dX=X%:oldY=Y*% 
X%=asc% MOD 256 
Ys=osck DIV 256 
CALL&FFF7 

X%=oa1dX: Y%x=ol ay 
ENDPROC 


DEFPROCstart 

FORAS=OTO! 

PRINTCHRS 133; CHR8157; CHR§$141;CHRS$C130+A%) ; 
TABCi{);"ZOOM Pixel Editor” 

NEXT 

PRINT’ TABC13);"by Steven Webb“ 

FOR AXS=5 TO 23 

PRINTTABCO,A%) CHRS134 

NEXT 

VDU28,1,23,39,5:CLS 

PRINT TABCO,1) "Which SWR bank (15) ? "3 
INPUT TABC22,1) banks 

IF bank$="" THEN banks="15":PRINTTABC 22, lJ banks 
bank=VALC banks) 

IF bank> 15 OR bank<O THEN GOTO 1480 

PRINT TABCO,3) "Which screen mode (1) ? ae 
INPUTTAB( 25,3) modes 

IF modes="" THEN modes="1":PRINTTABC 25, 3) modes 
mode =VAL(mode$ ) 

IF mode<O OR mode=3 OR mode>5 THEN GOTO 1530 
PRINTTAB(CO,5) "Load a screen CY) ? " 
INPUTTAB(C21,5) yns 

IF yns<>"Y"* AND yn$¢>"" THEN GOTO1710 

CLS 

INPUT"“Load from drive? (€0) "drs 

IF dr$="" THEN PRINTTABC21,0)°O":drs="0* 
PROCosclicC"DRI."+drs) 

INPUT’ "Would you like a catalogue? (N) “ans$ 

IF ans$="Y" THEN CLS: VDU14:x. 

PRINT’’ "Enter screen filename :";CHR$131; 
INPUTTABC24) filenames 

IF LENfilename$>7 AND MID8Cfilename$,2,1)<>"."* THEN 
PRINTCHRS129"°Filename too long!!"™:GOTO1670 

IF MIDS(filename$,2,1)="." AND LENfilenames>93 THEN 
PRINTCHRS129"Filename too long!!":GOTO1670 

CLES 

PRINTCHRS§ 130; TABC18)"KEYS:” 


~«.- JSLUOM Pixel Editor )>D> 
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1730 PRINT’CHRS133TABC10)"In Full-screen mode:” 
1740 PRINTTABC9) "cursor keys...move box” 

1750 PRINTTABC9)” +CSHIFT)...faster” 

1760 PRINTTABC9)"<CRET>..enter ZOOM mode” 

1770 PRINTTABC9)°0-7..... change logical" 

1780 PRINTTABC9)* colours” 

1790 PRINTTABC(9)°S.......... save screen” 

1800 PRINT’ CHRS133TABC(14)"In ZOQM mode:” 

1810 PRINTTABC9)°0-7...change pixel col” 

1820 PRINTTABC(9)”"<RET)...... enter Full-* 

1830 PRINTTABC9)°* Screen mode” 

1840 PRINT’ *CHR$131;TABC12)"Any key to begin“ 
1850 G=GET 

1860 ENDPROC 

1870 : 2200 RTS 

1880 DEFPROCassemble 2210 

1890 FORPASS=OTO2STEP2 2220 .copy 

1900 PX=&SA96 2230 LDA &F4 

1910 (OPT PASS 2240 STA &82 

1920 .uncopy 2250 LDA #bank 

1930 LDA &F4 2260 STA &FE3O 

1940 STA &82 2270 STA &FE32 

1950 LDA #hank 2280 STA &F4 

1960 STA &FE30 2290 LDA #step:STA &87 
1970 STA &FE32 2300 LDA #0:STA &85 
1980 STA &F4 2310 LDA #&80:STA &86 
1990 LDA #step:STA &87 2320 LDA #0:STA &83 
2000 LDA #0:STA &85 2330 LDA &himen: STA &84 
2010 LDA #&80:STA &86& 2340 LDX #&27 

2020 LDA #0:STA &83 2350 LDY #0 

2030 LDA Ahimem: STA &84 2360 .loaop2 

2040 LDX #&27 2370 LDA (&833,Y 
2050 LDY #0 2380 STA (&85),Y 
2060 .loop 2390 INY 

2070 LDA (&85),Y 2400 CPY &87 

2080 STA (&83),Y 2410 BNE loop2 

2090 INY 2420 INC &84 

2100 CPY &87 2430 INC &86 

2110 BNE loop 2440 DEX 

2120 INC &84 2450 BNE loop2 

2130 INC &86 2460 LDA &82 

2140 DEX 2470 STA &FE30O 

2150 BNE loap 2480 STA &F4 

2160 .finish 2490 RTS 

2170 LDA &82 2500 J 

2180 STA &FES3O 2510 NEXT 

2190 STA &F4 2520 ENDPROC 


Oe ne Oy tng ag tag tt Map at Pup tag tat ap tag Ag tng tg tt tae Pg ey tp Me mE Be 


Sept 37 


Beebiet 


Be tee tha thy tag ht tg ten the eg tp te hd thy Bee He np Ft A pg Ag Ay AE at By Re 


aD 


AVAILABLE FROM :- 


MICRO INTERFACE «N22 LTD 


P.O. BOX 14441 
KILBIRNIE 
WELLINGTON. 


a/h 882-444 STARNET 6009: UGROO8 


Please Note: All prices Include GST 


INTERWORD 


INTERSHEET 


INTERCHART 


INTERBASE 


SPELULMASTER 


MASTERFILE [1 


MINI OFFICE II 


BOX OF TREASURES 


FLOWERS OF CRYSTAL 


32k Word-Processor for only $175.82 + 
$3.00p&p. 


ROM based spreadsheet for only 
$175.82 + 63.00p&p. 


ROM based chart, graph and plotting 
program for only #118.20 + $3.00 p&p. 


ROM based database for only $220.00 + 
$3.00 p&p. 


128k ROM based spelling checker 
conpatible with Wordwise, Interword 
and View. Only %186.85 $3.00 p&p. 


Random access databuse for the ADFS. 
Both 5 1/4" and 3 1/2° disc versions 
only $88 + #3.00 p&p. 


5 1/4" disc based package for the BBC 
B and B+. Contains a word processor, 
database, spreadsheet, graphics 
program, communications program and a 
label printing program. Usually 
$63.70 but Kept on special for only 
353.70 until the end of September, + 
$3.00 p&p. 


Disc based educational adventure 
package. 5 1/4" disc $87.09 or 3 1/2" 
disc $90.00 + 63.00 p&p. 


Disc based educational adventure 
package. 5 1/4° disc $68.48 or 3 1/2° 
disc #72.00 + 83.00 p&p. 
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GRANNY’S GARDEN ~ Disc based educational adventure 
pacKage. 5 1/4" disc $48.84 or 3 1/2” 
disc $52.00 + 62.00 p&p. 


SPACEX ~ Another disc based educational 
adventure package. § 1/4" disc $43.26 
or 3 1/2" disc $45.00 + $2.00 p&p. 


THE MAGIC SWORD - Disc based educational adventure 
package for the BBC B. 80 track 5 
1/4” disc 847.51 + $2.00 p&p. 


ELITE! ~ Disc based games package, enhanced 
version, for the BBC and Master. Now 
only $53.29 +#3.00 p&p. Electron 
cassette version $46.49 + $3.00 p&p. 


REPTON 3, STRYKERS RUN, THRUST, 
SUPERIOR COLLECTION VOLUME ONE, 
SUPERIOR COLLECTION VOLUME TWO, 
AROUND THE WORLD IN 40 SCREENS, 
CITADEL, GALAFORCE, and RAVENSKULL. 


- All games are 5 1/4" 40/80 track disc 
based games for the BBC and BBC 
Master. Now only $43.09 + $2.00 p&p 
each. 

Some 3 1/2” disc versions available. 


SOLDERLESS SIDEWAYS ROM SOCKET BOARD 
- Expands the total possible number of 
ROMs in a BBC from 4 to 16. Only 
$147.50 + $3.00 p&p. 
HCR MASTER ROM BOX - Expands Masters ROM sockets to 
twelve. Make better use of the 
Masters power. $325.00 + 85.00 p&p. 
3. 1/2° DISCS - 135 TPI only #75.00 + 3.00 p&p. 
BEEBUG MAGAZINE - Flown In from England especially for 
you. Only 66.95 + 0.60 cents p&p. 


Many other products available too numerous to list here. 
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HAVE Oo CRASHING 


Anne Flower, Wellington 


Experimenting with the amplitude parameters of the 
Envelope statement, I inadvertently started using channel 
QO (the noise channel) instead of one of the tune channels 
for testing different pitches. So I was surprised when I 
got not notes, but static-like sounds with certain 
pitches. The difference between the two envelopes used is 
that the first does not have any decay, whereas the second 
has. The two sets of SOUND statements are identical - the 
alteration of one parameter only in the Envelope is 
responsible for the difference. 


10 REM shows the effects of the ALD parameter in an 
ENVe lope 

20 PRINT*Waterless waves crashing” 

30 ENVELOPE!,6,0,0,0,1,0,0,30,-4,0,-4,126,0 

40 SOUNDO,1,20,50:SOUNDO,1,30,60:SOUNDO,1,30,40: 
SOUNDO,1,20,80 

50 wait=INKEYC1000) 

60 PRINT"Watery waves” 

70 ENVELOPE!,6,0,0,0,1,0,0,30,~4,0,-4,126, 100 

80 SOUNDO,!1,20,50:SOUNDO,1,30,60:SOUNDO, 1,30, 40: 
SOUNDO,1,20,80 

90 END 
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For Sale: 

BBC Model 8B Coagputer. 

65C02 3mHz Co-~processor. 

Twin Dise Drive: 80 track, Double sided with power supply. 
High resolution NEC PC-8043B 12° Colour monitor 

Price: $1700 ono. 


Phone Dave Nuttall, (09) 591-509 CAuckland) 
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MALSTERE LL ke IE 


A review 


by John Gleave, Christchurch. 


I have tried several databases including ViewStore which 
was reviewed in the August issue of Beeblet and have found 
that Masterfile II (a BEEBUG product) the easiest to use 
and sufficiently versatile for most purposes. Certainly 
ViewStore is more versatile but after having it on trial 
for a weekend I decided that it was just too coaplicated 
to master readily and that I would continue with 
Masterfile II although it is a little limited at times as 
each record is limited to one screen of text in mode 7. 


The latest version is called ADFS Masterfile II and it 
gives some additional features not available in the DFS 
version - these are that form labels, tag labels and foras 
can be retained and labelled for reuse. This versian 
makes use of the shadow ram for tag sorting allowing 
larger files to be tagged sorted - the length depends upon 
the amount of shadow ram in use. 


Main Menu, 

The main menu has options A to P which relate to setting 
up new files, searching records, sorting records, setting 
up printer configuration, designing forms, laoking at and 


altering records - all very easy to use especially ona 
colour screen. 


The first step is to select option A and enter the name of 
the database to be searched, sorted, altered or printed. 
If a name is selected which is not on the disc then the 
screen advises you to select option B to create a totally 
new file followed by option F to reserve sufficient space 
on the disc for the file containing the number of records 
and length and number of fields created under option B. 


New Databases, 


A new database is set up under option B where the length 
and title of each field is established along with the type 
of field. There is provision for strings, numbers (the 
number of decimal points may be specified), integers (no 
decinal points), and dates. This is to facilitate 
Sorting. 
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Leok at and Alter Data, 


Under this option the record appears on the screen with 
its number in the top right and summarised instructions 
below. The field numbers and titles appear on the left 
of the screen with the data entered on the right. The 
length of each field is indicated by an < on the screen. 
Movement through the fields and records is by use of the 
cursor Keys with provision to enter all fields on a record 
or only a selected one to alter data. A particular record 
can be rmoved to by typing Rn where n is the number of the 
record. Data {s entered as strings and numbers can _ be 
recalculated individually or globally by moving to option 
LiL on the main menu. 


aearch. 


One of the most iraportant features of a database is to be 
able to search for selected records ameeting criteria 
stipulated by the user. Masterfile permits search under 
a variety of criteria using one of amore fields. The 
example given is a list of people with, inter alia, sex 
and heltght shown in separate fields. The computer can be 
asked to find the records of all females and this could be 
further reduced to all femules over a certain height. Once 
a search has been completed only those records meeting the 
Criteria will be printed out until the search parameters 
are cancelled. 


nerting. 


Masterfile has two methods of sorting records. Under the 
full sort option the records are changed in order on the 
file. This takes time (Cas much as an hour for each fifty 
records sorted on more than one field) and the original 
file is lost so if it is required again a backup must be 
made before sorting. The tag sort is very much quicker 
but sorting can only be done on two fields at once. Under 
Masterfile II the tag sort is lost once the computer is 
turned off but under the ADFS version it can be retained 
and the required tag sort required obtained through the 


Management option. Sorts can be in either ascending or 
descending order. 
Printout. 


Individual records can be dumped direct frea the look at 
or alter a record option. 
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The line length, left margin and printer controls can be 
set under option D before making a printout. 


Using the print option from the main menu all the records 
can be printed out either horizontally across the page or 
vertically under one another. By making up a form first 
and if required using a tag sort all the fields or 
selected ones can be printed. There are options to print 
labels or forms. The forms are designed by the user from 
another option on the main menu - fields, dates, nuarbers, 
headings, calculations and text can be placed anywhere on 
the printout. One of the form commands enables data to 
be inserted into a previously prepared file (spooled from 
a word processor) containing a letter. 


There is also provision to print labels. 


Conclusions. 

A simple to use versatile database which once in use 
requires little reference to the manual as many 
instructions appear on the screen. Apart from the 


limitations an the size of a record mentioned earlier ay 
only criticism is that at the time I bought amy copy. there 
is no separate manual for the ADFS version and it was 
necessary to amend the manual from photo-copied 
supplements. 
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HandiBbBbagas vv Discs 


Advice for Contributors using Discs. 


One size of Handibag is just right for packing discs. 
Unfortunately they don’t really provide enough protection 
against bending - when heavy parcels “lean” on them. One 
disc received recently was ina sad state. | 


It is reconmended that the disc be taped to at lcast one 
piece of stiff card about 150mm square before being 
placed in the Handibag. 


Special tip: - don’t throw away the card used when your 
disc is returned to you ~- regard it as belonging to 
Beeblet and Keep it for when you send in your next 


contribution. 
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LOCAL USER GROUP NEws 
WELILINGTON 


The August meeting, held on the 12th, was very open plan. 
People came and discussed any problems they were having or 
new software they had written or acquired. The biggest 
topic under discussion was what was wrong with the 
computer on the desk in the front. The best laid plans of 
mice and computer buffs are still prone to go wrong. 


If you have anything that you would like to display to the 
Wellington User Group please feel free to do so. Contact 
phone numbers are on the back of this issue of Beeblet. 


As usual, the User Group meetings are held in the Lecture 
Theatre, ist floor, Royal Society Rooms at 7.30pm. 
Preceeding each meeting, at 7.00pm, there is a video 
"Making the Most of the BBC Micro”. 


FORWARD PROGRAMME: 


The program at the moment for the October to December 
meetings is as follows: 


14 October : Recent videos of Brian Cattermole’s visit to 
England including BBC Computer shows and a 
look at Watford Electronics. 


11 November : A demonstration of the Acorn Archimedes, the 
fastest personal computer ever built. 


9 Decenber : Youth night with games, games and aore 
games. There will also be supper and 
Christmas goodies for our last meeting of 
the year. 


There is also a teaching class on at our workshop at 
Wellington College every fourth Wednesday of the month. 
At the subject is "How to write BBC Basic”. Later in the 
year there will be another course on "How to Write Machine 
Code”. If you are Interested, phone Don Churchill on 
848~235 to be enrolled in these free courses. 
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LS | U W 
HAWKES BAY 


Mis~quote: ’I also serve who only makes the tea.’ 


We are all out here in Hawkes Bay, over fifty financial 
members, doing our differemt things with our Beebs. We 
now meet every second Sunday afternoon of the month at a 
convenient school; it’s a real family party, mums, mostly 
dads and Kids, grandchildren even, enough video games 
computer setups to Keep all happy, and, as dad usually 
brings the Kids, mums who stay at home can’t gripe about 
him not digging the garden. It might not work as well in 
Summer, but so far it’s a great improvement on evening 
meetings. 


The Beeb has brought me many new friends; I don’t want to 
embarrass them by naming them, but they Know who they are, 
and I cannot thank them enough. I hate to miss a meeting, 
and in spite of all this high-tech, I think I really am 
just a tea-lady at heart. 


Ed: This item from Elizabeth Hill was accompanied’ by a 
interesting description of her set up at home Clovingiy 
called her Honey-Beeb) which I will hold for next month sa 
that there is room for her advertisement below. 
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Brother CE 70 daisywheel electronic typewriter 


With centronics parallel interface 
ribbon cable for BBC computer connection. 


This versatile dual outfit is ideal for printing out 
single sheets office-type work having a very high quality 
attractive type face. 

As new, professionally serviced and maintained. 


What offers for Brother and interface together? 


Elizabeth Hill, 
191 Flaxmere Ave., Hastings, Ph: €070) 797541 
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SELLE TE FT 


by D S McDonald, Wellington. 


“SELFTST”" is a learning program. The user teaches’ the 
computer with sentences in the form "“QUESTION?ANSWER.” 
The computer reviews the sentences, when the user can 
correct any sentences that are wrong. The computer then 
asks the questions in random order or the order of input. 


The candidate scores one mark for each character of the 


answer that is correct. If a character is wrong the 
cormputer beeps and prints the correct character. The 
time taken to answer is recorded. The results are 


candidate number and name, score, maximum possible score, 
percent, and time. The user can resit the test (R), teach 
new sentences (T or ND, or quit ¢Q@). 


Sample data. 
Books of the old and new testament, 


Names of animals starting with A-Z, 
English to French vocabulary, etc. 


1 CH?CHRONICLES 
X?XANTHURA 
THE WINDOW?LA FENETRE 


(Program can be modified to dimension for 65 sentences) 


10 REM Program SELFTST, Self-Test, by D.McDonald 
20 REM Version 2.0 , 23 July 1987 
30 NDIM=50 
40 DIM SENTENCES (NDIM),PNTRCNDIM) 
90 MODE7:REM VDUI4 
60 PROCTITLEINTRO 
70 PROCLEARN 
80 PROCREVIEWEDIT 
90 PROCTEST 
{00 PRINT’’’*"TYPE R - TO RESIT TEST"’’"T - TO TEACH 
COMPUTER NEW SENTENCES"’’*OR @ - TO QUIT.“ 
110 REPEAT 
120 AS=GETS 
130 UNTIL INSTRC"RTQ",A8) 
140 ON INSTRC"RTQ",A$) GOTO 90,60,150 
150 PRINT’’’* "END. ”* 
160 END 
ree SELFTST Contd >>> 
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170 
180 
130 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


350 
360 


370 


380 
3390 
400 
410 
420 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
940 


SELFTST Contd >>> 


DEF PROCTITLEINTRO 

VDU7 

REM 

RESTORE 

DATA!129,130,131,132,133,134,135 

READ RED,GRE, YEL,BLU,MAG,CYA,WHI 

REM 

DATA 16, 136,137, 140, 141 

READ GRAPHICS, FLASH,STEADY,NHEIGHT, DBLHEIGHT 
REM 

DATA 152, Los, 154; 156, 157, L158; 159 
READ CONCEAL, CONTIG,SEPAR, BLKBK, NEWBK,.HOLD, RELEASE 
REM 

DATA 8 

READ LFT 

REM 

CLS 

VDU BLU,NEWBK, RED, DBLHEIGHT: 

PRINT"S EL F-TES T* 

VDU BLU,NEWBK, RED,DBLHEIGHT: 

PRINT’S EOL F - TES TT" 

PRINT’’’"SELFTST BY D.MCDONALD”’’ 

“VERSION 2.0 , 23 JULY 1987°’’STRINGS(40,7-")"? 
PRINT“ TESTS PERSON(S) ON A TEXT QUIZ WHICH THE USER 
ENTERS.”"’’’ "MAY BE QUESTION AND ANSWER, 
MULTI-CHOICE, OR MEMORY.” 
PROCSPACECONTINUECS, 20) 

ENDPROC 

REM 

DEF PROCSPACECONTINUECCOL, ROW) 

PRINT TABCCOL,ROW);:VDU BLU: 

PRINT” PRESS SPACE BAR TO CONTINUE :”7 
PROCDELAY (1) 

KFX 21,0 

REPEAT UNTIL GETS=" ° 

CLS 

ENDPROC 

REM 

DEF PROCDELAYCN) 

FORDELAY=!TO Nx2000:NEXTDELAY 

ENDPROC 

REM 

DEF PROCLEARN 

INPUT“ENTER SUBJECT OF TEST.°’’ "EG. SPELLING, 
VOCABULARY, SONG, MEMORY, VERSE, ETC.”,SUBJECTS$ 


aes SELFTST Contd >>> 
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950 
560 
370 
980 


590 


600 
610 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 


880 
890 
900 
910 
920 
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INPUT’’ “ENTER NAME”, TYPISTS 

REM KEYBOARD INPUT ONLY 

CLS: VDU RED: PRINT"SELF-TEST --";SUBJECTS’ TYPISTS 
PRINT’ “ENTER MEMORY TEXT :-"’’*ONE SENTENCE AT A 
TIME, MAX 255 CHARS (6LINES)."’’"PRESS RETURN”’ 
PRINT"TYPE ? COPTIONAL) AFTER PART OF SENTENCE 
WHICH IS TO BE GIVEN AS A CUE, OR QUESTION -- 
FOLLOW-ON ANSWER.“*’ “RETURN®’ 

PRINT"MAXIMUM "“NDIM° SENTENCES. °’’ 

VDU RED: PRINT"“ENTER NULL LINE CRETURN)”:VDURED: 
PRINT"“TO END INPUT OF MEMORY TEXT. *”’ 
PROCSPACECONTINUEC3, 22) 

REM 

N=1 

REPEAT 

PROCSENTENCE 

N=N+1 

UNTIL NONDIM OR SENTENCES (N-1)="° 

N%=N-2 

PRINTTABCO);N%" SENTENCES. * 

NAMES$="" 

CAND=0 

SCORE=0 

NSTART%=1:NFIN%S=N% 

FORI=NSTARTSTONFIN%S: PNTRCI)=I:NEXTI 
PROCSPACECONTINUEC5, 24) 

ENDPROC 

REM 

DEF PROCSENTENCE 

FOR L=1TO 7:PRINTTABCO); L: NEXT L 

PRINT TABCO,VPOS-7);:VDURED: PRINTTABCO)"“SENTC.";N; 
VDUWHI: INPUTLINE SENTENCES (N} 

PRINTSTRING$(240," "},TABCO,VPOS-4) 

ENDPROC 

REM 

DEF PROCREVIEWEDIT 

CLS: VDURED: PRINT” REVIEW/EDIT"’’’ "PRESS SPACE BAR TO 
CONFIRM EACH”, °SENTENCE OF TEXT*’’’*OR E - TO 
EDITCTYPE IN AGAIN IF WRONG.)"’’’"L - TO SKIP TO 
LAST." ?’ 

FORN= i TON* 

PRINT’ ’TABCO) ; PNTR(N) ; SENTENCES (PNTRC(N) )D 

REPEAT ES=GET$ 

UNTIL E8S=" "“ORES="L°ORES="E™" 
PROCDELAY(1):xFX21,0 


ee SELFTST Contd >>> 
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Wats SELFTST Contd >>> 


930 IFES=" ° THENS60 

940 IFES="L" THENN=N%-1:GOTO960 

$50 VDU7: PROCSENTENCE 

960 NEXTN 

$70 PRINT’’ 

980 ENDPROC 

990 REM 

1000 DEF PROCTEST 

1010 CLS: VDURED: PRINT” TEST” 

1020 PRINT’’*NO. OF QUESTIONS “N% 

1030 INPUT’’°START TEST AT SENTENCE NO.”,NSTART* 

1040 IFNSTARTS%< 1ORNSTARTSONS%YPRINT"WRONG NO.“ :GOTO1020 

1050 INPUT’’*FINISH TEST AT SENTENCE NO.°,NFIN% 

1060 [FNFINS<NSTARTSORNFINS NX PRINT“WRONG NO.°: 
GOTO1050 

1070 FORI=NSTARTSTONFINS: PNTRCI)D=I : NEXTI 

1080 REPEAT 

1090 PRINT’’ "TYPE SPACE - TAKE SENTENCES IN GRDER"™’’ 
“OR R ~ RANDOM ORDER.” 

1100 O%=GET$# 

1110 UNTILO&=" " OR O#="R" 

1120 IFO#="R° THEN PROCMIX 

1130 PRINT’’"“LAST CANDIDATE “;CAND; 
NAMES’"..SCORE ="SCORE 

1140 INPUTLINE’°SELECT TEST - ENTER CANDIDATE NAME"’’ 
"OR REVIEW ~ PRESS RETURN”,NAMES 

1150 REM HEADING 

1160 CLS: 
PRINT“SUBJECT OF TEST -“SUBJECT&’** "BY -"“TYPISTS 

1170 PRINT’ ’°“START SENTENCE “;NSTARTS” FINISH “NFINS 

1180 IFOS="R° PRINT’ “SENTENCES IN RANDOM ORDER. * 

1190 IF NAME$=""“THEN PROCREVIEWEDIT: GOTO! 296 

1200 PRINT’ ’ "CANDIDATE -"NAMES’ ’ 
"PRESS SPACE TO START CLOCK.“ 

1210 REPEAT UNTILGETS=" ~ 

i220 HOLD=0 

1230 CAND=CAND+! 

1240 SCORE=0:MAXSCORE=0 

1250 FORI=NSTARTSTONFINS 

1260 PROCQUESTION 

1270 NEXTI 

1280 PROCRESULTS 

1290 ENDPROC 
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1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
i410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


1530 
1540 
1550 
1560 


1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1679 
1680 
1690 
1700 
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REM 

DEF PROCMIX 

REM SORT SENTENCES IN RANDOM ORDER 
FORI =NSTARTSTONFINS 
J=(NSTARTS—-1)+RNDCNFINS-NSTARTS+1 ) 
TEMP=PNTR(I) 

PNTRCI)=PNTRCJ) 

PNTR(J>=TEMP 

NEXTI 

ENDPROC 

REM 

DEF PROCQUESTION 

S#=SENTENCES (PNTRC(I)) 

CLS 

TIME=HOLD 

X=INSTR(S$,°?") 

IFX THENPRINTLEFTS$(S$8,X); 
MAX=LEN(S$)-X 

CHARS=0 

FORX=X+1TOLEN(S$ ) 

A%=GET$ | 
IFAS=MID$(S$,X,1) PRINTA$; : CHARS=CHARS+1:GOTO1530 
VDU7, RED, NEWBK, WHI :PRINTAS; : VDUBLKBK: 
PRINTMID#$(S8,X,1); 

NEXTX 

HOLD=TIME 

SOUND1,-15,CHARS, 20 


PRINT’ ’’ "CORRECT “;CHARS;” MAX. ";MAX;" *= °; 
INTC CHARS /MAX*x100+.5);" TIME “;INTCHOLDx.O1)3°7* 
IFMAX-CHARS>6 VDURED: PRINT” O00 O00" 

SCORE =SCORE+CHARS 

MAXSCORE=MAXSCORE+MAX 

PROCSPACECONTINUECS, 15) 

ENDPROC 

REM 

DEF PROCRESULTS 

CLS:PRINT"“RESULTS...°’* "CANDIDATE. *;NAMES.CAND 
PRINT"NO. OF QUESTIONS “°,NFINS-NSTARTS+i 


PRINT" SCORE” ,SCORE 

PRINT*MAXSCORE. *,MAXSCORE 

PRINT" PERCENT=",.1xINTCSCORE*1000/MAXSCORE?+ .5) 
PRINT°TIME ”*,HOLD*.01 

ENDPROC 


ae Sng tag egy Se a Dag Sag Sas Hap ag NE Oe Hap ap Ba Mg tag ty Ea cy tea Ad aD ag ap ag Say HE PD RE Ra eg IMG ING IME Ri DS BS Cas RE Tes tne ee a IE NY IG BOE Be ENE EEE 


Bee biet Sept sy 


Vet #4 MT #4 NID £A 


The New Zealand network of service and dealers for the 
Acorn range of computers is as follows: 


AUCKLAND: Telephone HASTINGS: Telephone 
Sales and Service- Whitcoulls Ltd 
Barson Computers NZ Ltd, 113 East Heretaunga St. 84-394 
PO Box 26-287 
i Ngaire Avenue, 504-049 
Auckland 3 904-631 WELLINGTON: 
Ser vice- 
Other Dealers- Data Group Limited 
Computer Terminal PO Box 1779 
257 Hinemoa St, Brhead. 419-0543 2nd Flr, Construction House 
80-82 Kent Tce 857-974 
Database Services | 
PO Box 94 Dealer- 
8 Kowhatu Rd 665-540 Micro Interface (NZ) Ltd 
PO Box 14-441 
Kilbirnie 882-444 
GORE: 





Lyndon McEntee, . 
Educomp, PO Box 255 7365 1.8.87 


FOR SALE s 


Solidisk 32k Sideways Ram $50 
Cincludes software on disc for 16K printer buffer, DFS 
with page at &EOQO, and Ramdisc) 

Solidisk DFS 2.2M Rom $45 
(compatible with 8271 and 1770 disK controllers) 


Steven Webb, Phone (04) 648 048 
10 Wise Street, Wainuiomata. 
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Membership of the National User Group is on payment of an 
annual subscription from April to March, which is $20.00 
for the 1987/8 year. A local branch levy may be payable 
which entitles attendance at meetings as detailed on the 
back page. Joining or renewing members get all the back 
issues of Beeblet for the current year - those joining 
after 1! October may have half the annual subscription 
waived and only receive Beeblet from 1 October. 
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USER GROUP MEETINGS 


AUCKLAND: -2nd and 3rd Wednesday af each month at Social 
Club, Auckland Hospital, Grafton Road at 7.30pm. 
Cantact John Buchanan (Secy)d}, 13 Qhinerau St, 
Remuera; David Wilkin (Pres), 29 Rose Camp Rd, 
Birkdale 

North Shore: “last Wednesday of the month, 7.30pm, Salvation 

Army Hall, Glenfield Road, Glenfield. 
Contact: Chris, Phone 419-0543 (wk) 


CHRISTCHORCH: “fortnightly workshoos, Monday 6.30pm at Hagley 
High School. phone Michael 582-267. 

DUNEDIN: -first Thursday of the month. 
Contact: Martin McDowall, Phane 42-031 

HAWKES BAY: ~Alternative months Hastings and Napier. Contact 


Kendall: Napier 435-624, Major: Napier 447-729, 
Mitch: Hastings 85-395. 

INVERCARGILL: -Phone Evan 330-444 Invercargill. 

NELSON: -second Monday of the month, 7.30pm, Nelson Baptist 
Church, Bridge St. Contact: Peter, Richmond 8975; 
Ken, Nelson 85-150; Richard, Richmond 8489. 

PALMERSTON NORTH:-Phone Brian Knowles 79-319 


ROTORUA: “first Tuesday of the month at Rotorua High School. 
Phone: Ian 85-583, Joan 81-536 or Tony 89-316. 
TAUPO: -every second Wednesday, 7.00pm. 
Contact: David 84-215 (h), 85-124 (wk). 
TAURANGA: “every second Wednesday. ph. Chris & Jane 65-076. 
TIMARU: ~Phone Lloyd van der Krogt Timaru 61-412. 
TOXOROA: -{st Friday of month, 7.30pm, TokKoroa High School. 


Contacts: Don Fraser, 68-813 or Graeme Robertson, 
65~346 Tokoroa. 


WAIKATO: ~first Monday of the month, 7.30pm, Waikato Tech 
Institute. Ph. Alison or John, Morrinsville 6695. 
WELLINGTON: “second Wednesday of the month, 7.30pm, Royal 
Society Lecture Theatre, Turnbull St, Thorndon. 
“Workshops: fourth Wednesday of month, other 
details: ph. Don 848-235 or Mike 785-437. 
OTHER CENTRES: ~let us Know and we will publish details here. 
MEMBERSHIP 
For membership details, see previous page. 
BEESLET 
PUBLISHED: monthly except January and mailed to financial members. 
CONTRIBUTIONS: -most welcome. Listings should be sent in on tape 
or disc. (Tape - 2 copies, one at 300 baud please). Please 


include written explanation of listing; text and graphics only 
material welcome too. 


DEADLINES: -For a particular issue, the last day for material 
is the fifteenth day of the month prior to publication. 
ADVERTISING: ~No fixed charge is made for advertising. Supply 


camera ready, deadlines as above. 


Copyright (c) BBC/ACORN COMPUTER USER GROUP OF NZ INC. 
Registered Publication with NZPost 
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